object Define: TDefine Left = 197 Top = 134 ActiveControl = OKBtn BorderStyle = bsDialog Caption = 'Aliases' ClientHeight = 285 ClientWidth = 517 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ShowHint = True OnActivate = FormActivate OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnDeactivate = FormDeactivate PixelsPerInch = 96 TextHeight = 13 object AliasText: TLabel Left = 179 Top = 154 Width = 54 Height = 13 Alignment = taRightJustify Caption = 'Alias name:' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object ComText: TLabel Left = 178 Top = 178 Width = 55 Height = 13 Alignment = taRightJustify Caption = 'Commands:' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Image1: TImage Left = 184 Top = 32 Width = 32 Height = 32 AutoSize = True end object Label3: TLabel Left = 224 Top = 40 Width = 269 Height = 13 Caption = 'Aliases are short-cuts for executing a series of commands' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label4: TLabel Left = 240 Top = 56 Width = 222 Height = 13 Caption = 'Enter the name of the short-cut in the Alias field' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label5: TLabel Left = 240 Top = 72 Width = 272 Height = 13 Caption = 'Enter the commands to be executed in the Command field' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object HelpTxt: TLabel Left = 256 Top = 86 Width = 218 Height = 13 Caption = 'separate multiple commands with a ; character' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Bevel1: TBevel Left = 168 Top = 32 Width = 9 Height = 249 Shape = bsLeftLine end object Label7: TLabel Left = 8 Top = 32 Width = 86 Height = 13 Caption = 'Stored Aliases:' end object Label8: TLabel Left = 8 Top = 48 Width = 148 Height = 13 Caption = 'Click on an alias below to edit it' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label1: TLabel Left = 8 Top = 62 Width = 120 Height = 13 Caption = 'Double click to execute it' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object SpeedButton1: TSpeedButton Left = 240 Top = 176 Width = 20 Height = 20 Hint = 'Edit command|' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000 000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F 00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B 0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F 0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF 00333377737FFFFF7733333033000000033333373377777773330000} NumGlyphs = 2 OnClick = SpeedButton1Click end object Inh: TLabel Left = 240 Top = 208 Width = 188 Height = 13 Caption = 'Inherited from parent settings file' Font.Color = clRed Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Visible = False end object OKBtn: TBitBtn Left = 264 Top = 252 Width = 77 Height = 27 Caption = 'OK' Default = True Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ModalResult = 1 ParentFont = False TabOrder = 0 OnClick = OKBtnClick Margin = 2 NumGlyphs = 2 Spacing = -1 IsControl = True end object CancelBtn: TBitBtn Left = 348 Top = 252 Width = 77 Height = 27 Cancel = True Caption = 'Cancel' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ModalResult = 2 ParentFont = False TabOrder = 1 OnClick = CancelBtnClick Margin = 2 NumGlyphs = 2 Spacing = -1 IsControl = True end object HelpBtn: TBitBtn Left = 432 Top = 252 Width = 77 Height = 27 HelpContext = 103 Caption = '&Help' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 Margin = 2 NumGlyphs = 2 Spacing = -1 IsControl = True end object AliasName: TEdit Left = 240 Top = 152 Width = 81 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 OnChange = AliasNameChange end object AliasCom: TEdit Left = 264 Top = 176 Width = 241 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 4 OnChange = AliasComChange end object AliasList: TListBox Left = 8 Top = 80 Width = 155 Height = 169 ExtendedSelect = False Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 ParentFont = False Sorted = True TabOrder = 5 OnClick = AliasListClick OnDblClick = AliasListDblClick OnMouseDown = AliasListMouseDown end object NewBtn: TBitBtn Left = 8 Top = 252 Width = 62 Height = 27 Caption = '&New' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 6 OnClick = NewBtnClick Margin = 2 NumGlyphs = 2 Spacing = -1 IsControl = True end object DelBtn: TBitBtn Left = 136 Top = 252 Width = 27 Height = 27 Hint = 'Delete alias|' TabOrder = 7 OnClick = DelBtnClick NumGlyphs = 2 Spacing = -1 IsControl = True end object Panel1: TPanel Left = 0 Top = 0 Width = 517 Height = 22 Align = alTop BevelOuter = bvNone TabOrder = 8 object Panel2: TPanel Left = 0 Top = 0 Width = 23 Height = 22 Align = alLeft BevelOuter = bvNone TabOrder = 0 object TopBtn: TSpeedButton Left = 0 Top = 0 Width = 22 Height = 22 Hint = 'Keep on top|' AllowAllUp = True GroupIndex = 1 NumGlyphs = 2 OnClick = TopBtnClick end end object Panel3: TPanel Left = 23 Top = 0 Width = 494 Height = 22 Align = alClient TabOrder = 1 object WalkBtn: TPanel Left = 338 Top = 1 Width = 88 Height = 20 Align = alLeft Alignment = taLeftJustify BevelOuter = bvNone Caption = 'Speed&walking' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 OnClick = WalkBtnClick end object TrigBtn: TPanel Left = 274 Top = 1 Width = 64 Height = 20 Align = alLeft Alignment = taLeftJustify BevelOuter = bvNone Caption = '&Triggers' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = TrigBtnClick end object ButBtn: TPanel Left = 210 Top = 1 Width = 64 Height = 20 Align = alLeft Alignment = taLeftJustify BevelOuter = bvNone Caption = '&Buttons' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = ButBtnClick end object VarBtn: TPanel Left = 82 Top = 1 Width = 64 Height = 20 Align = alLeft Alignment = taLeftJustify BevelOuter = bvNone Caption = '&Variables' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 OnClick = VarBtnClick end object Panel7: TPanel Left = 18 Top = 1 Width = 64 Height = 20 Align = alLeft Alignment = taLeftJustify BevelOuter = bvNone Caption = '&Aliases' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 4 OnClick = AliasBtnClick end object Panel4: TPanel Left = 1 Top = 1 Width = 17 Height = 20 Align = alLeft BevelOuter = bvNone TabOrder = 5 end object Panel5: TPanel Left = 146 Top = 1 Width = 64 Height = 20 Align = alLeft Alignment = taLeftJustify BevelOuter = bvNone Caption = '&Macros' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 6 OnClick = MacroBtnClick end end end object CopyBtn: TBitBtn Left = 72 Top = 252 Width = 62 Height = 27 Caption = '&Copy' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 9 OnClick = CopyBtnClick Glyph.Data = { 56070000424D5607000000000000360400002800000028000000140000000100 0800000000002003000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA A600000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000F0FBFF00A4A0A000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303 03030303030303030303030303030303030303030303FFFFFFFFFFFFFFFFFFFF 0303030303030303030000000000000000000003030303030303030303F8F8F8 F8F8F8F8F8F8F8FF03030303030303030300FFFFFFFFFFFFFFFF000303030303 0303030303F8FF03030303030303F8FF03030303030303030300FBFFFBFFFBFF FBFF0003030303030303030303F8FF03FFFFFFFFFFFFF8FF0303030303030303 0300FFF8F8F8F8F8F8FF0003030303030303030303F8FFF8F8F8F8F8F803F8FF 03030303030303030300FBFFFBFFFBFFFBFF00030303030303FFFFFFFFF8FF03 FFFFFFFFFFFFF8FF03030303000000000000FFF8F8F8F8F8F8FF000303030303 F8F8F8F8F8F8FFF8F8F8F8F8F803F8FF0303030300FFFFFFFF00FBFFFBFFFBFF FBFF000303030303F8FF030303F8FF03FFFFFFFFFFFFF8FF0303030300FFFFFF FF00FFF8F8F8F8F8F8FF000303030303F8FF030303F8FFF8F8F8F8F8F803F8FF 0303030300FF07070700FBFFFBFFFBFFFBFF000303030303F8FF030303F8FF03 0303030303FFF8FF0303030300FFFFFFFF00FFFFFFFFFFFF0000000303030303 F8FF030303F8FF0303030303F8F8F8030303030300FF07070700FBFFFBFFFBFF 0000030303030303F8FF030303F8FFFFFFFFFFFFF8F803030303030300FFFFFF FF000000000000000003030303030303F8FF030303F8F8F8F8F8F8F8F8030303 0303030300FF070707070707FF0003030303030303030303F8FF030303030303 03F8FF03030303030303030300FFFFFFFFFFFFFFFF0003030303030303030303 F8FF030303030303FFF8FF03030303030303030300FFFFFFFFFFFF0000000303 0303030303030303F8FF0303030303F8F8F80303030303030303030300FFFFFF FFFFFF00000303030303030303030303F8FFFFFFFFFFFFF8F803030303030303 030303030000000000000000030303030303030303030303F8F8F8F8F8F8F8F8 0303030303030303030303030303030303030303030303030303030303030303 0303030303030303030303030303030303030303030303030303030303030303 0303030303030303030303030303030303030303030303030303} Margin = 2 NumGlyphs = 2 Spacing = -1 IsControl = True end object PopupMenu1: TPopupMenu Left = 184 Top = 248 object PopupMenu: TMenuItem Caption = 'Execute' ShortCut = 0 OnClick = AliasListDblClick end object N1: TMenuItem Caption = '-' ShortCut = 0 end object New1: TMenuItem Caption = 'New' ShortCut = 0 OnClick = NewBtnClick end object Copy1: TMenuItem Caption = 'Copy' ShortCut = 0 OnClick = CopyBtnClick end object Delete1: TMenuItem Caption = 'Delete' ShortCut = 0 OnClick = DelBtnClick end end end